home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / arexxtutorial / more_examples / ports.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  287b  |  13 lines
  1. /* ports - test ports actions */
  2. say 'Waiting for packet from ports2.rexx'
  3. say ' '
  4. call openport("testport")
  5. call waitpkt('testport')
  6. packet = getpkt('testport')
  7. pktstring = getarg(packet)
  8. call reply(packet,0)
  9. say 'This is printed from ports.'
  10. say 'Packet string is:' pktstring
  11. exit(0)
  12.  
  13.